home *** CD-ROM | disk | FTP | other *** search
/ Gold Medal Software 3 / Gold Medal Software - Volume 3 (Gold Medal) (1994).iso / bbsutils / ppemnu10.arj / PPEMENU.PPE (.txt) < prev    next >
PCBoard Programming Language Executable  |  1994-02-28  |  2KB  |  126 lines
  1. ;------------------------------------------------------------------------------
  2. ;                                                   .ss.
  3. ;                                                   `²²'
  4. ;             .,sS$Ss,,s$  .,sS$$$Ss.  .,sS$Ss,,s$ .ss.  .sSs.
  5. ;           .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
  6. ;           $$$'   .$$$' $$$²Sçsµ²' .$$$'   .$$$'.$$$' .$$$'  `$$b.
  7. ;           $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$'    ;$$$
  8. ;           `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
  9. ;                                    .sS²°$$$²²°"'       d²°'
  10. ;                                  .$$²  .$$'
  11. ;                                  $$$.,d$$'
  12. ;                                  `²S$$S²'
  13. ;------------------------------------------------------------------------------
  14. ; P.P.L.X. 2.OO                          (C)1996 - Lone Runner / AEGiS CoRP'96 
  15. ;------------------------------------------------------------------------------
  16. ; PPE 2.OO (plain) - Analysis ON - Postprocessing ON
  17. ;------------------------------------------------------------------------------
  18.  
  19.     String   STRING001
  20.  
  21. ;------------------------------------------------------------------------------
  22.  
  23.     If (Exist(PPEPath() + "PPEMENU.CFG")) Then
  24.         Goto LABEL001
  25.         End
  26.     Else
  27.         Goto LABEL006
  28.     Endif
  29.     End
  30.     :LABEL001
  31.     If (Exist(PPEPath() + "MENU")) Then
  32.         DispStr "%" + PPEPath() + "MENU"
  33.         InputStr "(@X0C@MINLEFT@ @X0Emin left) <CR>=Quit Enter selection", STRING001, 14, 2, "0123456789", 256 + 8 + 2
  34.         Goto LABEL002
  35.         End
  36.     Else
  37.         Goto LABEL005
  38.     Endif
  39.     End
  40.     :LABEL002
  41.     If (STRING001 == Chr(13)) Then
  42.         Goto LABEL008
  43.     Else
  44.         Goto LABEL003
  45.     Endif
  46.     End
  47.     :LABEL003
  48.     If (Exist(ReadLine(PPEPath() + "PPEMENU.CFG", STRING001))) Then
  49.         Goto LABEL004
  50.         End
  51.     ElseIf (STRING001 == "") Then
  52.         End
  53.     Else
  54.         Goto LABEL007
  55.     Endif
  56.     End
  57.     :LABEL004
  58.     DispStr "!" + ReadLine(PPEPath() + "PPEMENU.CFG", STRING001)
  59.     Call PPEPath() + "PPEMENU.PPE"
  60.     End
  61.     :LABEL005
  62.     PrintLn "@BEEP@@X5D┌───────────────────────────────────────────────────────@X50┐@X00@X01"
  63.     PrintLn "@X5D│ @X5FERROR, FILENAME '@X5EMENU@X5F' NOT FOUND IN PPEMENU DIRECTORY @X50│@X01"
  64.     PrintLn "@X5D│ @X5FEITHER PLACE THE FILE IN PROPER DIRECTORY OR CREATE   @X50│@X01"
  65.     PrintLn "@X5D│ @X5FA NEW 'MENU' FILE AND PLACE IT IN PPEMENU DIRECTORY!  @X50│@X01"
  66.     PrintLn "@X5D└@X50───────────────────────────────────────────────────────┘@X01"
  67.     End
  68.     :LABEL006
  69.     PrintLn "@BEEP@@X4C┌──────────────────────────────────────────────────────────@X40┐@X01"
  70.     PrintLn "@X4C│ @X4FERROR FINDING @X4FPPEMENU CONFIGURATION FILE! CHECK TO MAKE  @X40│@X01"
  71.     PrintLn "@X4C│ @X4FSURE THAT @X4EPPEMENU.CFG @X4FIS IN YOUR PPEMENU DIRECTORY AND   @X40│@X01"
  72.     PrintLn "@X4C│ @X4FRERUN PROGRAM! OR REFER TO DOCS TO CREATE NEW .CFG FILE! @X40│@X01"
  73.     PrintLn "@X4C└@X40──────────────────────────────────────────────────────────┘@X01"
  74.     End
  75.     :LABEL007
  76.     PrintLn "@X0C@BEEP@You have entered an invalid selection!"
  77.     :LABEL008
  78.     End
  79.  
  80. ;------------------------------------------------------------------------------
  81. ;
  82. ; Usage report (before postprocessing)
  83. ;
  84. ; ■ Statements used :
  85. ;
  86. ;    12      End
  87. ;    18      Goto 
  88. ;    11      PrintLn 
  89. ;    5       If 
  90. ;    1       InputStr 
  91. ;    1       Call 
  92. ;    2       DispStr 
  93. ;
  94. ;
  95. ; ■ Functions used :
  96. ;
  97. ;    10      +
  98. ;    2       ==
  99. ;    5       !
  100. ;    1       Chr()
  101. ;    6       PPEPath()
  102. ;    2       ReadLine()
  103. ;    3       Exist()
  104. ;
  105. ;------------------------------------------------------------------------------
  106. ;
  107. ; Analysis flags : C
  108. ;
  109. ; C - Call child PPE ■ 3
  110. ;     This is usually normal, but may be a tricky way to launch some
  111. ;     sysop-only commands.
  112. ;     ■ Search for : CALL
  113. ;
  114. ;------------------------------------------------------------------------------
  115. ;
  116. ; Postprocessing report
  117. ;
  118. ;    0       For/Next
  119. ;    0       While/EndWhile
  120. ;    5       If/Then or If/Then/Else
  121. ;    0       Select Case
  122. ;
  123. ;------------------------------------------------------------------------------
  124. ;                 AEGiS Corp - Break the routines, code against the machines!
  125. ;------------------------------------------------------------------------------
  126.